home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / makeaptr.cpr < prev    next >
Text File  |  1988-11-07  |  156b  |  9 lines
  1. /* */
  2. parse arg addr
  3. if (~datatype(addr,'x')) then
  4.    do
  5.    'd "Invalid hex number' arg '"'
  6.    exit(0)
  7.    end
  8. 'd "' c2x(d2c(c2d(x2c(addr))*4,4)) '"'
  9. exit(0)